www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminshop\editorder.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% AJAXshowLoader() %> <% if find_dataw("qitashezhi123","0",3)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <link href="../images/css.css" rel="stylesheet" type="text/css"> <title>订单管理</title> <SCRIPT LANGUAGE="JavaScript"> <!-- function checkk() { if(checkspace(document.form2.searchkey.value)) { document.form2.searchkey.focus(); alert("请输入查询关键字!"); return false; } document.form2.submit(); } //--> </script> <%dim state,namekey namekey=trim(request.form("namekey")) state=trim(request.form("state")) if state="" then state=request.QueryString("state") if namekey="" then namekey=request.querystring("namekey") %> <style type="text/css"> <!-- .STYLE1 { color: #000000; font-weight: bold; } .STYLE2 {color: #0000FF} --> </style> <table width="98%" border="0" align="center"class="tableBorder" cellpadding="1" cellspacing="1" bgcolor="#fbf4f4"> <tr> <td align="center"background="images/admin_bg_1.gif"><font color="#FFFFFF">管理商品订单</font></td> </tr> <tr> <td height="167" valign="top" bgcolor="#Fbf4f4"> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td width="14%" align="right"> <input type="button" onclick="window.location.reload()" value="刷新本页"/> </td> <td width="86%" align="right"><select name="select" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" > <base target=Right /> <option value="editorder.asp?state=0" >全部订单状态</option> <option value="editorder.asp?state=1" >用户未付款,未作处理</option> <option value="editorder.asp?state=2" >用户已划出款</option> <option value="editorder.asp?state=3" >服务商已收到款</option> <option value="editorder.asp?state=4" >服务商已发货</option> <option value="editorder.asp?state=5" >用户已经收到货</option> </select></td> </tr> </table> <% Const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(request("page")) then currentPage=Cint(request("page")) else currentPage=1 end if set rs=server.CreateObject("adodb.recordset") if namekey="" then if state=0 or state="" then select case state case "0" rs.open "select distinct(goods),userid,realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where state<6 order by actiondate desc",conn,1,1 case "" rs.open "select distinct(goods),userid,realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where state<6 order by actiondate desc",conn,1,1 end select else rs.open "select distinct(goods),userid,realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where state="&state&" order by actiondate",conn,1,1 end if else '//按用户查询 if state=0 or state="" then rs.open "select distinct(goods),userid,realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where state<5 and username='"&namekey&"' order by actiondate desc",conn,1,1 else rs.open "select distinct(goods),userid,realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where state="&state&" and username='"&namekey&"' order by actiondate",conn,1,1 end if end if if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "<p align='center' class='contents'> 对不起,您选择的状态目前还没有订单!</p>" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"editorder.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent showpage totalput,MaxPerPage,"editorder.asp" else currentPage=1 showContent showpage totalput,MaxPerPage,"editorder.asp" end if end if end if sub showContent dim i i=0 %> <table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#e1e1e1"> <tr bgcolor="#Fbc2c2" align="center"> <td>订单号</td> <td>下单用户</td> <td>订货人姓名</td> <td>金额总计</td> <td> 付款方式</td> <td> 收货方式</td> <td > 订单状态</td> </tr> <%do while not rs.eof dim shop,username,rs2 set shop=server.CreateObject("adodb.recordset") shop.open "select id,username from [nd_user] where id="&rs("userid"),conn,1,1 username=trim(shop("username")) uuuid=shop("id") shop.close %> <tr bgcolor="#Fbf4f4" align="center"> <td> <%=trim(rs("goods"))%> <a href=# class="STYLE2" onClick="javascript:window.open('vieworder.asp?dan=<%=trim(rs("goods"))%>&username=<%=username%>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><strong>编辑订单</strong></a></td> <td> <%=username%> <a href="../admin_usergroup/D_edit_user.asp?id=<%=uuuid%>" class="STYLE2"><strong>编辑用户</strong></a> </td> <td><%=trim(rs("realname"))%></td> <td><% shop.open "select sum(paid) as paid,sum(score) as score from ND_SHOP_orders where goods='"&trim(rs("goods"))&"' ",conn,1,1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1 response.write "<font color=#FF6600>"&shop("paid")+rs2("fee")&"元</font>" rs2.close shop.close set shop=nothing %> </td> <td> <% rs2.open "select * from delivery where deliveryid="&int(rs("paymethord")),conn,1,1 if rs2.eof and rs2.bof then response.write "方式已被删除" else response.Write trim(rs2("subject")) end if rs2.Close set rs2=nothing %> </td> <td> <% set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1 if rs2.eof and rs2.bof then response.write "方式已被删除" else response.Write trim(rs2("subject")) end if rs2.close set rs2=nothing%> </td> <td> <% select case cstr(rs("state")) case "1" response.write "用户未付款,未作处理" case "2" response.write "用户已划出款,等待处理" case "3" response.write "服务商已收到款" case "4" response.write "服务商已发货" case "5" response.write "用户已经收到货" end select%> </td> </tr> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%> </table> <% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If if namekey="" then Response.Write "<form method=Post action="&filename&"?state="&state&">" else Response.Write "<form method=Post action="&filename&"?state="&state&"&namekey="&namekey&">" end if Response.Write "<p align='center' class='contents'> " If CurrentPage<2 Then Response.Write "<font class='contents'>首 页 上一页</font> " Else if namekey="" then Response.Write "<a href="&filename&"?page=1&state="&state&" class='contents'>首 页</a> " Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&state="&state&" class='contents'>上一页</a> " ELSE Response.Write "<a href="&filename&"?page=1&state="&state&"&namekey="&namekey&" class='contents'>首 页</a> " Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&state="&state&"&namekey="&namekey&" class='contents'>上一页</a> " end if End If If n-currentpage<1 Then Response.Write "<font class='contents'>下一页 末 页</font>" Else if namekey="" then Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&state="&state&" class='contents'>" Response.Write "下一页</a> <a href="&filename&"?page="&n&"&state="&state&" class='contents'>末 页</a>" else Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&state="&state&"&namekey="&namekey&" class='contents'>" Response.Write "下一页</a> <a href="&filename&"?page="&n&"&state="&state&"&namekey="&namekey&" class='contents'>末 页</a>" end if End If Response.Write "<font class='contents'> 页次:</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> " Response.Write "<font class='contents'> 共有"&totalnumber&"笔订单 "&maxperpage&"笔订单/页</font> " Response.Write "<font class='contents'>转到:</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">" Response.Write " <input type='submit' class='contents' value='跳转' name='cndok'></form>" End Function %> <br></td> </tr> </table> <br> <table width="98%" border="0" align="center"class="tableBorder" cellpadding="1" cellspacing="1" bgcolor="#fbf4f4"> <tr> <td height="20" align="center"background="images/admin_bg_1.gif"><span class="STYLE1">定单查询</span></td> </tr> <tr> <td height="34" bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1"> <tr align="center"> <form name="form1" method="post" action="editorder.asp"> <td>按下单用户查询(请输入完整用户名) <input name="namekey" type="text" id="namekey2" value="请输入完整用户名" size="18" onFocus="this.value=''"> <select name="state" id="select"> <option value="0" >全部订单状态</option> <option value="1" >用户未付款,未作处理</option> <option value="2" >用户已划出款</option> <option value="3" >服务商已收到款</option> <option value="4" >服务商已发货</option> <option value="5" >用户已经收到货</option> </select> <input type="submit" name="Submit" value="查 询"> </td> </form> <form name="form2" method="post" action="../vworder.asp"> <td> </td> </form> </tr> </table></td> </tr> </table> <% AJAXcloseLoader() %>